home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / Artikeltest.artpri < prev    next >
Text File  |  1999-03-27  |  3KB  |  128 lines
  1. 1$VER: Artikeltest 1.05 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.05
  6. %%Title: (MT-RechnungIII - Artikeltest)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: A4 594 839 null () ()
  9. %%DocumentNeededResources: font Times-Roman
  10. %%BoundingBox: 0 0 549 839
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: A4
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [594 839] >> setpagedevice
  18.  
  19. /PageSize [594 839] def
  20.  
  21. /DokumentRandX 54 def
  22. /DokumentRandY 50 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DokumentRandY add /DokumentRandY exch def
  41. } ifelse
  42. %%EndSetup
  43.  
  44. %%BeginnResource
  45. /reencodedict 5 dict def
  46. /ReEncode
  47. {
  48.      reencodedict begin
  49.      /newencoding exch def
  50.      /newfontname exch def
  51.      /basefontname exch def
  52.  
  53.      /basefontdict basefontname findfont def
  54.  
  55.      /newfont basefontdict maxlength dict def
  56.  
  57.      basefontdict
  58.      { exch dup dup /FID ne exch /Encoding ne and
  59.           { exch newfont 3 1 roll put }
  60.           { pop pop }
  61.           ifelse
  62.      } forall
  63.      newfont /FontName newfontname put
  64.      newfont /Encoding newencoding put
  65.      newfontname newfont definefont pop
  66.      end
  67. } def
  68.  
  69. /ISOLatin8Encoding
  70. [
  71.     ISOLatin1Encoding 0 164 getinterval aload pop
  72.     /euro
  73.     ISOLatin1Encoding 165 91 getinterval aload pop
  74. ] def
  75. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  76. /getsymbol {findfont exch scalefont def} bind def
  77. /printnewfont {setfont moveto show} bind def
  78. /print {moveto show} bind def
  79. %%EndResource
  80.  
  81. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  82. /Times14Zeile 14 def
  83. /Times14 Times14Zeile /OF0 /Times-Roman /OF0 getfont
  84.  
  85. %% Ausgab der Kopfdaten
  86.  
  87. Times14 setfont
  88. DokumentRandX DokumentRandY moveto
  89. (Artikeltest:) show
  90. DokumentRandY Times14Zeile sub /DokumentRandY exch def
  91. DokumentRandX DokumentRandY moveto
  92. ArtikelNr2 show
  93. DokumentRandY Times14Zeile sub /DokumentRandY exch def
  94. DokumentRandX DokumentRandY moveto
  95. ArtikelBezeich show
  96. DokumentRandY Times14Zeile sub /DokumentRandY exch def
  97. ArtikelZusatztext
  98. {
  99.     DokumentRandX DokumentRandY moveto
  100.     show
  101.     DokumentRandY Times14Zeile sub /DokumentRandY exch def
  102. } forall
  103. DokumentRandX DokumentRandY moveto
  104. ArtikelME show
  105. DokumentRandY Times14Zeile sub /DokumentRandY exch def
  106. DokumentRandX DokumentRandY moveto
  107. ArtikelGewichtGef
  108. {
  109.     (Gewicht gefüllt) show
  110. }
  111. {
  112.     (Gewicht nicht gefüllt)  show
  113. } ifelse
  114. DokumentRandY Times14Zeile sub /DokumentRandY exch def
  115. DokumentRandX DokumentRandY moveto
  116. ArtikelGewicht show
  117. DokumentRandY Times14Zeile sub /DokumentRandY exch def
  118. DokumentRandX DokumentRandY moveto
  119. ArtikelMWSt show
  120.  
  121.  
  122. showpage
  123.  
  124. %%Trailer
  125. clear
  126. %%EOF
  127.  
  128.